htt[p]erl, simulador de web server
Publicado por Fábio Berbert de Paula 06/01/2003
[ Hits: 7.805 ]
Homepage: https://mestrefabio.com
htt[p]erl é um script usado para simular um servidor web, muito bom para quem deseja entender melhor o protocolo de comunicação entre browser e servidor. O programa fica escutando na porta TCP 80 e envia uma página HTML padrão para o browser do usuário.
#!/usr/bin/perl # --------------------------------------------------------- # httperl.pl (htt[p]erl) # # Script em Perl usado para simular um servidor web, muito # bom para quem deseja entender melhor o protocolo de # comunicação entre browser e servidor # # # Programado por Fábio Berbert de Paula # <fabio@vivaolinux.com.br> # # Rio de Janeiro, 06 de Janeiro de 2003 # --------------------------------------------------------- $| = 1; # criar socket na porta 80 do servidor use IO::Socket; my $sock = new IO::Socket::INET ( LocalPort => '80', Type => SOCK_STREAM, Proto => 'tcp', Listen => 10 ); die "Não consegui iniciar o servidor: $!\n" unless $sock; print "Servidor iniciado ...\n"; # definir o cabeçalho de retorno básico my $retorno = " HTTP/1.1 200 OK Server: htt[p]erl/1.0 (GNU/Linux) Connection: close Content-Type: text/html <html> <body> Uma cortesia de <a href=\"http://www.vivaolinux.com.br\">Viva o Linux</a>. </body> </html> "; # aceitar conexões TCP while (my $new_sock = $sock->accept()) { while($linha = <$new_sock>) { # imprimir o cabeçalho recebido pelo browser do usuário print $linha; # se linha vazia, então o browser envio câmbio, vamos respondê-lo if ($linha!~/[A-Za-z0-9]/) { print $new_sock $retorno; # fechar conexão com o cliente $new_sock = ''; } } close(W); } close($sock);
Calculadora de notas versão Perl
Verificação de IP em blacklists
Nenhum comentário foi encontrado.
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Entendendo o que é URI, URL, URN e conhecendo as diferenças entre POST e GET
Ativando o Modo Noturno via Linha de Comando no GNOME/Wayland
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Como criar um robot em NTSL (Nelogica Trading System Language) para Profitchart
Use o Google PageSpeed Insights para verificar um site
filtrar só as pastas onde tem arquivo (5)
Sistema da Coréia do Norte - Red Star OS (29)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (31)
Instalacao Manjaro em notebook com placa de video hibrida [RESOLVIDO] (2)